Skip to content

Instantly share code, notes, and snippets.

View MarcusXavierr's full-sized avatar
🎯
Focusing

Marcus Xavier MarcusXavierr

🎯
Focusing
39 followers · 33 following
View GitHub Profile
@MarcusXavierr
MarcusXavierr / Main.hs
Created July 18, 2022 02:27
CIS 194 week 2
{-# OPTIONS_GHC -Wall #-}
module Main where
import Log
parse :: String -> [LogMessage]
parse xs = map parseMessage $ lines xs
parseMessage :: String -> LogMessage
parseMessage = createLog . words