Skip to content

Commit

Permalink
imports sorted and displayed
Browse files Browse the repository at this point in the history
  • Loading branch information
@The1Penguin
The1Penguin committed Nov 2, 2024
1 parent 04b9f68 commit 2c456aa
Show file tree
Hide file tree
Showing 5 changed files with 49 additions and 14 deletions.
26 changes: 19 additions & 7 deletions app/Main.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5,18 +5,30 @@ module Main
) where

import Control.Monad ( forever )
import Effectful
import Effectful.Reader.Dynamic
import Effectful.Log ( runLog, defaultLogLevel )
import Effectful.Concurrent
import Effectful.Concurrent.Async
import Effectful.Concurrent.MVar
import Effectful.FileSystem
import Log.Backend.StandardOutput ( withStdOutLogger )
import Data.FileEmbed ( embedDir )
import Data.IORef ( IORef
, readIORef
)
import Effectful ( IOE
, (:>)
, Eff
, MonadIO(liftIO)
, runEff )
import Effectful.Concurrent ( Concurrent
, runConcurrent
, threadDelay
)
import Effectful.Concurrent.Async ( mapConcurrently_ )
import Effectful.Concurrent.MVar ( MVar
, newEmptyMVar
, tryPutMVar
)
import Effectful.FileSystem ( runFileSystem
, createDirectoryIfMissing
)
import Effectful.Log ( runLog, defaultLogLevel )
import Effectful.Reader.Dynamic ( runReader )
import Lens.Micro.Platform ( set
, view
)
Expand Down
19 changes: 15 additions & 4 deletions src/Model.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,10 +18,6 @@ import Data.IORef ( IORef
)
import Data.Foldable ( for_ )
import Data.Functor ( (<&>) )
import Effectful
import Effectful.FileSystem
import Effectful.Log
import Effectful.Reader.Dynamic
import Prettyprinter ( prettyList
, (<+>)
)
Expand All @@ -38,6 +34,21 @@ import Data.Thyme ( _localDay
, _utctDay
)
import Data.Thyme.Time ( toThyme )
import Effectful ( IOE
, (:>)
, Eff
, MonadIO(..)
)
import Effectful.FileSystem ( FileSystem
, getAccessTime
, listDirectory
, removeFile )
import Effectful.Log ( Log
, logInfo_
)
import Effectful.Reader.Dynamic ( Reader
, asks
)
import Lens.Micro.Platform ( (^.)
, (&)
, (%~)
Expand Down
6 changes: 5 additions & 1 deletion src/Model/Karen.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,6 @@ module Model.Karen
where

import Control.Monad ( (>=>), filterM )
import Effectful
import Data.Aeson ( object
, (.=)
, (.:)
Expand All @@ -28,6 +27,11 @@ import Data.Text.Lazy ( Text
import Data.Thyme.Calendar ( Day
, showGregorian
)
import Effectful ( IOE
, (:>)
, Eff
, MonadIO(liftIO)
)
import Network.Wreq ( asValue
, post
, responseBody )
Expand Down
6 changes: 5 additions & 1 deletion src/Model/Linsen.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,6 @@ import Control.Monad ( (>=>)
, zipWithM
, filterM
, ap )
import Effectful
import Data.Aeson ( (.:)
, withObject
, Value )
Expand All @@ -32,6 +31,11 @@ import Data.Thyme ( parseTime
import Data.Thyme.Calendar ( Day )
import Data.Thyme.Calendar.WeekDate ( weekDate
, _wdDay )
import Effectful ( IOE
, (:>)
, Eff
, MonadIO(liftIO)
)
import Lens.Micro.Platform ( (^.) )
import Network.Wreq ( asValue
, get
Expand Down
6 changes: 5 additions & 1 deletion src/Model/Wijkanders.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,6 @@ import Control.Arrow ( (***)
, (>>>)
)
import Control.Monad ( (<=<) )
import Effectful
import Data.Attoparsec.ByteString.Lazy ( maybeResult
, parse
, skip
Expand Down Expand Up @@ -39,6 +38,11 @@ import Data.Thyme ( Day
, ymdDay
)
import qualified Data.Word8 as W8
import Effectful ( IOE
, (:>)
, Eff
, MonadIO(liftIO)
)
import Lens.Micro.Platform ( view )
import Network.Wreq ( get
, responseBody )
Expand Down

0 comments on commit 2c456aa

Please sign in to comment.