1 files changed, 10 insertions, 10 deletions

diff --git a/execs/Day14.hs b/execs/Day14.hs
index 7f4368a..e1e0e37 100644
--- a/execs/Day14.hs
+++ b/execs/Day14.hs
@@ -1,15 +1,15 @@
 module Main where
 
-import           Utils
-import           Text.ParserCombinators.Parsec
-import           Text.Parsec.Char
-import           Data.Either
+import           Data.Bifunctor                (bimap)
 import           Data.Char
-import           Data.Bifunctor (bimap)
+import           Data.Either
+import           Data.Map                      (Map)
+import qualified Data.Map                      as Map
 import           Data.Strings
-import           Numeric (showIntAtBase, readInt)
-import           Data.Map (Map)
-import qualified Data.Map as Map
+import           Numeric                       (readInt, showIntAtBase)
+import           Text.Parsec.Char
+import           Text.ParserCombinators.Parsec
+import           Utils
 
 data Stmt = Mask String | Mem Int Int deriving Show
 
@@ -41,9 +41,9 @@ runProgram ls = sum regs
               where nval = applyMask val m
 
 floatings :: String -> [String]
-floatings [] = [[]]
+floatings []       = [[]]
 floatings ('X':xs) = floatings xs >>= (\b -> ['0':b, '1':b])
-floatings (x:xs) = map (x:) $ floatings xs
+floatings (x:xs)   = map (x:) $ floatings xs
 
 genIdxs :: Int -> String -> [Int]
 genIdxs v m = map (fst . head . readInt 2 (`elem` "01") digitToInt) (floatings wm)