squash module names

src/Web/WebAuthn.hs → src/WebAuthn.hs

@@ -4,15 +4,15 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 -----------------------------------------------------------------------
 -- |
--- Module      :  Web.WebAuthn
+-- Module      :  WebAuthn
 -- License     :  BSD3
 --
 -- Maintainer  :  Fumiaki Kinoshita <[email protected]>
 --
 -- <https://www.w3.org/TR/webauthn/ Web Authentication API> Verification library
 -----------------------------------------------------------------------
 
-module Web.WebAuthn (
+module WebAuthn (
   -- * Basic
   TokenBinding(..)
   , Origin(..)
@@ -53,11 +53,11 @@ import qualified Codec.CBOR.Decoding as CBOR
 import qualified Codec.Serialise as CBOR
 import Control.Monad.Fail
 
-import Web.WebAuthn.Signature
-import Web.WebAuthn.Types
-import qualified Web.WebAuthn.TPM as TPM
-import qualified Web.WebAuthn.FIDOU2F as U2F
-import qualified Web.WebAuthn.Packed as Packed
+import WebAuthn.Signature
+import WebAuthn.Types
+import qualified WebAuthn.TPM as TPM
+import qualified WebAuthn.FIDOU2F as U2F
+import qualified WebAuthn.Packed as Packed
 
 -- | Generate a cryptographic challenge (13.1).
 generateChallenge :: Int -> IO Challenge

src/Web/WebAuthn/FIDOU2F.hs → src/WebAuthn/FIDOU2F.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
-module Web.WebAuthn.FIDOU2F where
+module WebAuthn.FIDOU2F where
 
 import Crypto.Hash
 import Data.ByteString (ByteString)
@@ -12,7 +12,7 @@ import qualified Data.ByteArray as BA
 import qualified Data.Map as Map
 import qualified Data.X509 as X509
 import qualified Data.X509.Validation as X509
-import Web.WebAuthn.Types
+import WebAuthn.Types
 
 data Stmt = Stmt (X509.SignedExact X509.Certificate) ByteString
   deriving Show

src/Web/WebAuthn/Packed.hs → src/WebAuthn/Packed.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Web.WebAuthn.Packed where
+module WebAuthn.Packed where
 
 import Crypto.Hash
 import Data.ByteString (ByteString)
@@ -9,8 +9,8 @@ import qualified Data.X509.Validation as X509
 import qualified Codec.CBOR.Term as CBOR
 import qualified Codec.CBOR.Decoding as CBOR
 import qualified Data.Map as Map
-import Web.WebAuthn.Signature
-import Web.WebAuthn.Types
+import WebAuthn.Signature
+import WebAuthn.Types
 
 data Stmt = Stmt Int ByteString (Maybe (X509.SignedExact X509.Certificate))
   deriving Show

src/Web/WebAuthn/Signature.hs → src/WebAuthn/Signature.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Web.WebAuthn.Signature (PublicKey(..)
+module WebAuthn.Signature (PublicKey(..)
   , parsePublicKey
   , verifySig
   ) where
@@ -20,7 +20,7 @@ import qualified Data.Map as Map
 import Data.ASN1.BinaryEncoding
 import Data.ASN1.Encoding
 import Data.ASN1.Types
-import Web.WebAuthn.Types
+import WebAuthn.Types
 
 data PublicKey = PubEC EC.PublicKey | PubRSA RSA.PublicKey
 

src/Web/WebAuthn/TPM.hs → src/WebAuthn/TPM.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Web.WebAuthn.TPM where
+module WebAuthn.TPM where
 
 import Data.ByteString (ByteString)
 import Crypto.Hash (Digest, SHA256)
@@ -8,7 +8,7 @@ import qualified Data.X509.Validation as X509
 import qualified Codec.CBOR.Term as CBOR
 import qualified Codec.CBOR.Decoding as CBOR
 import qualified Data.Map as Map
-import Web.WebAuthn.Types (VerificationFailure(..), AuthenticatorData)
+import WebAuthn.Types (VerificationFailure(..), AuthenticatorData)
 
 data Stmt = Stmt Int ByteString (X509.SignedExact X509.Certificate) ByteString deriving Show
 

src/Web/WebAuthn/Types.hs → src/WebAuthn/Types.hs

@@ -3,7 +3,7 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DeriveGeneric #-}
-module Web.WebAuthn.Types (
+module WebAuthn.Types (
   -- * Relying party
   RelyingParty(..)
   , Origin(..)

wai-middleware-webauthn/src/Network/Wai/Middleware/WebAuthn.hs

@@ -19,7 +19,7 @@ module Network.Wai.Middleware.WebAuthn
 import Control.Concurrent
 import Control.Monad (forever)
 import Crypto.Random (getRandomBytes)
-import Web.WebAuthn as W
+import WebAuthn as W
 import qualified Data.Aeson as J
 import Data.Text (Text)
 import Data.Hashable (Hashable)

webauthn.cabal

@@ -18,12 +18,12 @@ extra-source-files:  CHANGELOG.md
 
 library
   exposed-modules:
-    Web.WebAuthn
-    Web.WebAuthn.Types
-    Web.WebAuthn.FIDOU2F
-    Web.WebAuthn.Packed
-    Web.WebAuthn.Signature
-    Web.WebAuthn.TPM
+    WebAuthn
+    WebAuthn.Types
+    WebAuthn.FIDOU2F
+    WebAuthn.Packed
+    WebAuthn.Signature
+    WebAuthn.TPM
   build-depends:       base == 4.*
     , containers
     , cryptonite