diff --git a/Download.hs b/Download.hs index d3b6ac3..923b174 100644 --- a/Download.hs +++ b/Download.hs @@ -1,4 +1,4 @@ -module Download (downloadHtmlAvailableDef, downloadHtmlDef) where +module Download (downloadHtmlAvailableDef, downloadHtmlDef) where import Data.ByteString.Lazy import Network.HTTP.Simple @@ -14,7 +14,7 @@ downloadHtmlDef :: String -> String -> IO ByteString downloadHtmlDef n w = do request <- getDefRequest n w downloadFromRequest request - + downloadFromRequest :: Request -> IO ByteString downloadFromRequest r = do response <- httpLBS r diff --git a/Main.hs b/Main.hs index 3e8a048..9e655c5 100644 --- a/Main.hs +++ b/Main.hs @@ -13,7 +13,7 @@ parse [] = usage parse ("-d":[]) = usage parse ("-d":n:[]) = usage parse ("-d":n:fs) = do - htmlResult <- downloadHtmlDef n (head fs) + htmlResult <- downloadHtmlDef n (head fs) let n' = read n :: Int printDef (E.decodeUtf8 htmlResult) n' parse fs = do diff --git a/WordDef.hs b/WordDef.hs index 2e62936..6699cc9 100644 --- a/WordDef.hs +++ b/WordDef.hs @@ -26,7 +26,7 @@ getTypeString :: WordType -> String getTypeString (WordType s) = s renderFullDef :: WordFullDef -> String -renderFullDef (WordFullDef wordDefHeader wordSentenceList) = +renderFullDef (WordFullDef wordDefHeader wordSentenceList) = renderHeader wordDefHeader ++ "\n\n" ++ renderWordSentenceList wordSentenceList renderHeader :: WordDefHeader -> String