rror detected while loading xmonad configuration file: /home/dominik/.xmonad/xmonad.hs

xmonad.hs:38:7:
    No instances for (LayoutClass l Window, Read (l Window))
      arising from a use of `xmonad' at xmonad.hs:38:7-12
    Possible fix:
      add an instance declaration for
      (LayoutClass l Window, Read (l Window))
    In the first argument of `(=<<)', namely `xmonad'
    In the expression: xmonad =<< dbruhnConfig
    In the definition of `main': main = xmonad =<< dbruhnConfig

xmonad.hs:41:14:
    Couldn't match expected type `X t'
           against inferred type `IO GHC.IOBase.Handle'
    In a 'do' expression:
        xmobar <- spawnPipe "xmobar /home/dominik/.xmonad/xmobar"
    In the expression:
        do xmobar <- spawnPipe "xmobar /home/dominik/.xmonad/xmobar"
             return
           $   withUrgencyHook NoUrgencyHook
             $ defaultConfig
                 {terminal = "urxvtc",
                  workspaces = ["1", ....]
                             ++  map show ([3 .. 7 :: Int]) ++ ["float", ....],
                  modMask = mod4Mask,
                  manageHook = myManageHook <+> manageDocks <+> myScratchpad,
                  logHook = dynamicLogWithPP
                          $ defaultPP
                              {ppOutput = hPutStrLn xmobar, ppCurrent = xmobarColor "green" "",
                               ppTitle = xmobarColor "white" "" . shorten 60,
                               ppVisible = wrap "(" ")", ppLayout = xmobarColor "gray" "",
                               ppUrgent = xmobarColor "white" "red", ppSep = " "},
                  keys = \ c -> mykeys c `M.union` keys defaultConfig c,
                  mouseBindings = \ c -> mymkeys c
                                       `M.union`
                                         mouseBindings defaultConfig c,
                  layoutHook = avoidStruts (myLayoutHook)}
    In the definition of `dbruhnConfig':
        dbruhnConfig = do xmobar <- spawnPipe
                                      "xmobar /home/dominik/.xmonad/xmobar"
                            return
                          $   withUrgencyHook NoUrgencyHook
                            $ defaultConfig
                                {terminal = "urxvtc",
                                 workspaces = [...] ++ map show ([3 .. ...]) ++ [...],
                                 modMask = mod4Mask,
                                 manageHook = myManageHook <+> manageDocks <+> myScratchpad,
                                 logHook = dynamicLogWithPP
                                         $ defaultPP
                                             {ppOutput = hPutStrLn xmobar,
                                              ppCurrent = xmobarColor "green" "",
                                              ppTitle = xmobarColor "white" "" . shorten 60,
                                              ppVisible = wrap "(" ")",
                                              ppLayout = xmobarColor "gray" "",
                                              ppUrgent = xmobarColor "white" "red", ppSep = " "},
                                 keys = \ c -> ..., mouseBindings = \ c -> ...,
                                 layoutHook = avoidStruts (myLayoutHook)}
                     where
                         myManageHook = composeAll . concat
                                    $ [[className =? c --> doFloat | c <- floats], ....]
                                      where
                                          floats = ...
                         mykeys (XConfig {modMask = modm})
                                  = M.fromList
                                  $ [((modm, xK_n),
                                      appendFilePrompt defaultXPConfig "/home/dominik/NOTES"),
                                     ....]
                         mymkeys (XConfig {modMask = modm})
                                   = M.fromList $ [((modm, button1), (\ w -> ...))]
                         myLayoutHook = onWorkspace
                                          "web" (noBorders (tabbed shrinkText myTConf))
                                      $   onWorkspace "float" (simpleFloat)
                                        $ (Tall 1 3.0e-2 0.5
                                         ||| Mirror (Tall 1 3.0e-2 0.5)
                                           ||| Full ||| tabbed shrinkText myTConf)
                                      where
                                          myTConf = ...
                         ....

Please check the file for errors.