diff options
author | stuebinm | 2024-04-17 01:55:56 +0200 |
---|---|---|
committer | stuebinm | 2024-04-17 02:01:35 +0200 |
commit | 58f5b808c151a801ab5fca2c84a71d3bfddce57d (patch) | |
tree | f5e9660be6425f39bce64ca3f5e9e70ebc16193f /lib/Server | |
parent | 385e15fc22f48a1f8d40b8263a54155fdab499ea (diff) |
general housekeeping
jumps to GHC2021 as default language, adds in some fields, moves the old
org mode glossary to markdown, etc.
Diffstat (limited to 'lib/Server')
-rw-r--r-- | lib/Server/ControlRoom.hs | 7 | ||||
-rw-r--r-- | lib/Server/GTFS_RT.hs | 3 | ||||
-rw-r--r-- | lib/Server/Util.hs | 4 |
3 files changed, 1 insertions, 13 deletions
diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs index 402f0b8..773468a 100644 --- a/lib/Server/ControlRoom.hs +++ b/lib/Server/ControlRoom.hs @@ -1,19 +1,12 @@ {-# LANGUAGE DataKinds #-} {-# LANGUAGE DefaultSignatures #-} {-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE LambdaCase #-} -{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} module Server.ControlRoom (ControlRoom(..)) where diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs index cfb02ce..740f71c 100644 --- a/lib/Server/GTFS_RT.hs +++ b/lib/Server/GTFS_RT.hs @@ -1,9 +1,8 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE OverloadedLists #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE PartialTypeSignatures #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TupleSections #-} +{-# LANGUAGE DataKinds #-} module Server.GTFS_RT (gtfsRealtimeServer) where diff --git a/lib/Server/Util.hs b/lib/Server/Util.hs index 41d26f7..5ffb829 100644 --- a/lib/Server/Util.hs +++ b/lib/Server/Util.hs @@ -1,7 +1,3 @@ -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE TypeSynonymInstances #-} - -- | mostly the monad the service runs in module Server.Util (Service, ServiceM, runService, sendErrorMsg, secondsNow, utcToSeconds) where |