Update a bit

cipta-media · Nov 8, 2016 · c3c896e · c3c896e
1 parent bfe41d6
commit c3c896e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/hapoid.hs b/hapoid.hs
@@ -123,12 +123,14 @@ simplify path = do
     then reverse $ (take 40 (reverse path)) ++ "..."
     else path
 
+-- Check if it's a msgstr
 isMsgstr :: String -> Bool
 isMsgstr text
   | text == ""                      = False
   | (head $ words text) == "msgstr" = True
   | otherwise                       = False
 
+-- Get the msgstr
 getMsgstr :: String -> String
 getMsgstr text' = do
   let text    = words text'

diff --git a/install.sh b/install.sh
@@ -12,7 +12,7 @@ command -v ghc >/dev/null 2>&1 || {
 
 echo ""
 
-ghc -O hapoid.hs
+ghc -O2 hapoid.hs
 rm hapoid.hi
 rm hapoid.o