styled code a bit.

2015-12-03 23:45:05 +01:00 · 2015-12-03 23:45:05 +01:00 · 0a115a51a3
commit 0a115a51a3
parent f545662a47
1 changed files with 8 additions and 8 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -14,8 +14,8 @@ import System.IO (stdin)

 data Options = Options
             { srcFile :: String
-             , width :: Int
-             , height :: Int
+             , width   :: Int
+             , height  :: Int
             }

 options :: Parser Options
@ -55,12 +55,12 @@ conv (fp@(PixelRGB8 fr fg fb),PixelRGB8 br bg bb) = printf "\x1b[48;2;%d;%d;%dm\
   where
     lumi :: Word8 -> Char
     lumi x
-          | x > 225 = '@'
-          | x > 180 = 'O'
-          | x > 150 = 'X'
-          | x > 50 = 'o'
-          | x > 25 = 'x'
-          | x > 10 = '.'
+          | x > 225   = '@'
+          | x > 180   = 'O'
+          | x > 150   = 'X'
+          | x > 50    = 'o'
+          | x > 25    = 'x'
+          | x > 10    = '.'
          | otherwise = ' '

 img2ascii :: ((PixelRGB8,PixelRGB8) -> String) -> (Image PixelRGB8,Image PixelRGB8) -> [[String]]