diff options
author | stuebinm | 2022-01-15 00:46:30 +0100 |
---|---|---|
committer | stuebinm | 2022-03-19 19:25:49 +0100 |
commit | 1530a4646b5bb7ab2930d1433eda87d5f0936125 (patch) | |
tree | 0eb4e3f0ada2743539cefbb27925ece37fabe6de /lib/Properties.hs | |
parent | 6e929b4b1eb9b0b6a4707ed3d9f181544ed27a73 (diff) |
use hpack and clean up modules
as annoying as yaml is, cabal's package format is somehow worse, apparently
Diffstat (limited to 'lib/Properties.hs')
-rw-r--r-- | lib/Properties.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index f346f7f..9cde1ec 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -45,7 +45,8 @@ import LintWriter (LintWriter, adjust, askContext, import Paths (PathResult (..), RelPath (..), getExtension, isOldStyle, parsePath) import Types (Dep (Link, Local, LocalMap, MapLink)) -import Uris (SubstError (..), applySubsts, parseUri, extractDomain) +import Uris (SubstError (..), applySubsts, extractDomain, + parseUri) @@ -344,10 +345,10 @@ checkObjectGroupProperty (Property name _) = case name of \not the object layer." _ -> warn $ "unknown property " <> prettyprint name <> " for objectgroup layers" -checkIsRc3Url :: Text -> Bool +checkIsRc3Url :: Text -> Bool checkIsRc3Url text= case extractDomain text of Nothing -> False - Just domain -> do + Just domain -> do domain == "https://static.rc3.world" |