diff --git a/app/Main.hs b/app/Main.hs
index ff9e970..b5d9023 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -2,14 +2,14 @@ module Main
   ( main
   ) where
 
-import Cards
-import Control.Monad
-import Control.Monad.Trans.Class
-import Control.Monad.Trans.Maybe
-import Data.Char
-import Data.Time
-import System.Console.Haskeline
-import System.Console.Haskeline.History
+import           Cards
+import           Control.Monad
+import           Control.Monad.Trans.Class
+import           Control.Monad.Trans.Maybe
+import           Data.Char
+import           Data.Time
+import           System.Console.Haskeline
+import           System.Console.Haskeline.History
 
 type Input = InputT IO
 
@@ -75,7 +75,7 @@ askElements time elms = do
   -- TODO: Randomize order
   newCards <- askCountdown time l
   return $ updateElements elms (fromCards newCards)
-  
+
 askCountdown :: UTCTime -> [(Integer, Card)] -> Input [(Integer, Card)]
 askCountdown _ [] = return []
 askCountdown time l@((key, card):xs) = do
diff --git a/src/Cards.hs b/src/Cards.hs
index 8956763..82263a6 100644
--- a/src/Cards.hs
+++ b/src/Cards.hs
@@ -25,7 +25,7 @@ module Cards
 import           Control.Applicative
 import           Control.Monad
 import           Data.List
-import qualified Data.Map.Strict as Map
+import qualified Data.Map.Strict      as Map
 import           Data.Time
 import           Data.Void
 import           Text.Megaparsec
@@ -46,16 +46,16 @@ data Element = ECard Card
 
 -- | A single index card with one or more sides.
 data Card = Card
-  { sides :: [String]
+  { sides       :: [String]
   -- ^ The sides of a 'Card'.
   --
   -- As opposed to real index cards, a 'Card' may have more or less than two
   -- sides.
-  , tier :: Tier
+  , tier        :: Tier
   -- ^ The 'Tier' of a 'Card'.
   , lastChecked :: UTCTime
   -- ^ The time a 'Card' was last looked at.
-  , offset :: NominalDiffTime
+  , offset      :: NominalDiffTime
   -- ^ A random offset, used when determining whether a 'Card' needs to be
   -- revised.
   --