Fix copyright notice. Refs #32.

This library is mostly licensed as BSD3. This change clarifies the license of each haskell file and cabal file, making the copyright notice explicit in a comment. The LICENSE files are also modified to name Keera Studios as copyright holder.
keera-studios · Feb 26, 2020 · 16bb32d · 16bb32d
1 parent 2453a47
commit 16bb32d
Show file tree

Hide file tree

Showing 162 changed files with 761 additions and 153 deletions.
diff --git a/demos/image-format-guesser/src/CombinedEnvironment.hs b/demos/image-format-guesser/src/CombinedEnvironment.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module CombinedEnvironment
    ( CRef
    , view

diff --git a/demos/image-format-guesser/src/Controller.hs b/demos/image-format-guesser/src/Controller.hs
@@ -1,6 +1,10 @@
 -- | This contains the main controller. Many operations will be
 -- implemented in the Controller.* subsystem. This module simply
 -- initialises program.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller where
 
 -- External imports

diff --git a/demos/image-format-guesser/src/Controller/Conditions.hs b/demos/image-format-guesser/src/Controller/Conditions.hs
@@ -3,7 +3,10 @@
 -- two conditions: one that must be checked only when the model changes
 -- (and updates the view accordingly), and another that must be checked
 -- when the view receives an event (and updates the model accordingly).
-
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller.Conditions
    ( installHandlers
    )

diff --git a/demos/image-format-guesser/src/Controller/Conditions/ConditionDirection.hs b/demos/image-format-guesser/src/Controller/Conditions/ConditionDirection.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller.Conditions.ConditionDirection where
 
 data ConditionDirection = VM

diff --git a/demos/image-format-guesser/src/Controller/Conditions/FilenameEntry.hs b/demos/image-format-guesser/src/Controller/Conditions/FilenameEntry.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller.Conditions.FilenameEntry where
 
 -- Internal libraries

diff --git a/demos/image-format-guesser/src/Controller/Conditions/ResultLabel.hs b/demos/image-format-guesser/src/Controller/Conditions/ResultLabel.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller.Conditions.ResultLabel where
 
 import Control.Arrow

diff --git a/demos/image-format-guesser/src/Extra/UI/Simplify/EntryBasic.hs b/demos/image-format-guesser/src/Extra/UI/Simplify/EntryBasic.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Extra.UI.Simplify.EntryBasic
     (installHandlers)
   where

diff --git a/demos/image-format-guesser/src/Extra/UI/Simplify/LabelBasic.hs b/demos/image-format-guesser/src/Extra/UI/Simplify/LabelBasic.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Extra.UI.Simplify.LabelBasic
     (installHandlers)
   where

diff --git a/demos/image-format-guesser/src/Main.hs b/demos/image-format-guesser/src/Main.hs
@@ -1,4 +1,8 @@
 -- | This is the main program with which the IDE is launched.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Main where
 
 -- Internal imports

diff --git a/demos/image-format-guesser/src/Model/Model.hs b/demos/image-format-guesser/src/Model/Model.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.Model where
 
 import Model.ProtectedModel.NamedModel

diff --git a/demos/image-format-guesser/src/Model/ProtectedModel.hs b/demos/image-format-guesser/src/Model/ProtectedModel.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ProtectedModel
    ( ProtectedModel
    , onEvent

diff --git a/demos/image-format-guesser/src/Model/ProtectedModel/Filename.hs b/demos/image-format-guesser/src/Model/ProtectedModel/Filename.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ProtectedModel.Filename where
 
 import Model.ProtectedModel.ProtectedModelInternals

diff --git a/demos/image-format-guesser/src/Model/ProtectedModel/ProtectedModelInternals.hs b/demos/image-format-guesser/src/Model/ProtectedModel/ProtectedModelInternals.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ProtectedModel.ProtectedModelInternals
    ( ProtectedModel
    , GPM.onReactiveModel

diff --git a/demos/image-format-guesser/src/Model/ReactiveModel.hs b/demos/image-format-guesser/src/Model/ReactiveModel.hs
@@ -4,6 +4,10 @@
 -- reactive model is not necessarily concurrent (it doesn't have its own thread),
 -- although a facility is included to make it also concurrent (so that
 -- event handlers can be called as soon as they are present).
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel
    ( ReactiveModel -- (basicModel, eventHandlers)
    -- * Construction

diff --git a/demos/image-format-guesser/src/Model/ReactiveModel/Filename.hs b/demos/image-format-guesser/src/Model/ReactiveModel/Filename.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel.Filename where
 
 import qualified Model.Model as M

diff --git a/demos/image-format-guesser/src/Model/ReactiveModel/ModelEvents.hs b/demos/image-format-guesser/src/Model/ReactiveModel/ModelEvents.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel.ModelEvents
   ( ModelEvent (FilenameChanged)
   ) where

diff --git a/demos/image-format-guesser/src/Model/ReactiveModel/ReactiveModelInternals.hs b/demos/image-format-guesser/src/Model/ReactiveModel/ReactiveModelInternals.hs
@@ -4,6 +4,10 @@
 -- reactive model is not necessarily concurrent (it doesn't have its own thread),
 -- although a facility is included to make it also concurrent (so that
 -- event handlers can be called as soon as they are present).
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel.ReactiveModelInternals
    ( ReactiveModel
    , GRM.basicModel

diff --git a/demos/image-format-guesser/src/View.hs b/demos/image-format-guesser/src/View.hs
@@ -1,4 +1,8 @@
 -- | Contains basic operations related to the GUI
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module View where
 
 -- External libraries

diff --git a/demos/image-format-guesser/src/View/MainWindow/Objects.hs b/demos/image-format-guesser/src/View/MainWindow/Objects.hs
@@ -1,5 +1,9 @@
 -- | This module contains oprations to access the objects in this interface,
 -- and one to obtain a builder from which they can be accessed.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module View.MainWindow.Objects where
 
 import Graphics.UI.Gtk
@@ -25,5 +29,5 @@ mainWindowMessageLbl :: Builder -> IO Label
 mainWindowMessageLbl = onBuilder castToLabel "mainWindowMessageLbl"
 
 -- | Returns an entry to get a message to the user
-mainWindowFilenameEntry :: Builder -> IO Entry 
+mainWindowFilenameEntry :: Builder -> IO Entry
 mainWindowFilenameEntry = onBuilder castToEntry "mainWindowFilenameEntry"
diff --git a/demos/keera-hails-demos-gtk-dunai/keera-hails-demos-gtk-dunai.cabal b/demos/keera-hails-demos-gtk-dunai/keera-hails-demos-gtk-dunai.cabal
@@ -1,3 +1,7 @@
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : All Rights Reserved
+-- Maintainer  : support@keera.co.uk
+--
 cabal-version: >=1.10
 build-type:    Simple
 

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/CombinedEnvironment.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/CombinedEnvironment.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module CombinedEnvironment
    ( CRef
    , view

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Controller.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Controller.hs
@@ -1,6 +1,10 @@
 -- | This contains the main controller. Many operations will be
 -- implemented in the Controller.* subsystem. This module simply
 -- initialises program.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller where
 
 -- External imports

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Controller/Conditions.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Controller/Conditions.hs
@@ -3,7 +3,10 @@
 -- two conditions: one that must be checked only when the model changes
 -- (and updates the view accordingly), and another that must be checked
 -- when the view receives an event (and updates the model accordingly).
-
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Controller.Conditions
    ( installHandlers
    )

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Main.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Main.hs
@@ -1,4 +1,8 @@
 -- | This is the main program with which the IDE is launched.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Main where
 
 -- Internal imports

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/Model.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/Model.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.Model where
 
 import Model.ProtectedModel.NamedModel

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/ProtectedModel.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/ProtectedModel.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ProtectedModel
    ( ProtectedModel
    , onEvent

diff --git a/...-hails-demos-gtk/elementarygtkprogram/src/Model/ProtectedModel/ProtectedModelInternals.hs b/...-hails-demos-gtk/elementarygtkprogram/src/Model/ProtectedModel/ProtectedModelInternals.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ProtectedModel.ProtectedModelInternals
    ( ProtectedModel
    , GPM.onReactiveModel

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/ReactiveModel.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/ReactiveModel.hs
@@ -4,6 +4,10 @@
 -- reactive model is not necessarily concurrent (it doesn't have its own thread),
 -- although a facility is included to make it also concurrent (so that
 -- event handlers can be called as soon as they are present).
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel
    ( ReactiveModel -- (basicModel, eventHandlers)
    -- * Construction

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/ReactiveModel/ModelEvents.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/Model/ReactiveModel/ModelEvents.hs
@@ -1,3 +1,8 @@
+-- |
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel.ModelEvents
   ( ModelEvent ()
   ) where

diff --git a/...ra-hails-demos-gtk/elementarygtkprogram/src/Model/ReactiveModel/ReactiveModelInternals.hs b/...ra-hails-demos-gtk/elementarygtkprogram/src/Model/ReactiveModel/ReactiveModelInternals.hs
@@ -4,6 +4,10 @@
 -- reactive model is not necessarily concurrent (it doesn't have its own thread),
 -- although a facility is included to make it also concurrent (so that
 -- event handlers can be called as soon as they are present).
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Model.ReactiveModel.ReactiveModelInternals
    ( ReactiveModel
    , GRM.basicModel

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/View.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/View.hs
@@ -1,4 +1,8 @@
 -- | Contains basic operations related to the GUI
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module View where
 
 -- External libraries

diff --git a/demos/keera-hails-demos-gtk/elementarygtkprogram/src/View/MainWindow/Objects.hs b/demos/keera-hails-demos-gtk/elementarygtkprogram/src/View/MainWindow/Objects.hs
@@ -1,5 +1,9 @@
 -- | This module contains oprations to access the objects in this interface,
 -- and one to obtain a builder from which they can be accessed.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module View.MainWindow.Objects where
 
 import Graphics.UI.Gtk
@@ -11,7 +15,7 @@ loadInterface = do
   builder <- builderNew
   builderAddFromFile builder "Interface.glade"
   return builder
-  
+
 -- | Returns the IDE's main window.
 mainWindow :: Builder -> IO Window
 mainWindow = onBuilder castToWindow "mainWindow"

diff --git a/demos/keera-hails-demos-gtk/keera-hails-demos-gtk.cabal b/demos/keera-hails-demos-gtk/keera-hails-demos-gtk.cabal
@@ -1,3 +1,7 @@
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : All Rights Reserved
+-- Maintainer  : support@keera.co.uk
+--
 cabal-version: >=1.10
 build-type:    Simple
 

diff --git a/demos/keera-hails-demos-soundplay/keera-hails-demos-soundplay.cabal b/demos/keera-hails-demos-soundplay/keera-hails-demos-soundplay.cabal
@@ -1,3 +1,7 @@
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : All Rights Reserved
+-- Maintainer  : support@keera.co.uk
+--
 cabal-version: >=1.10
 build-type:    Simple
 

diff --git a/keera-hails-i18n/LICENSE b/keera-hails-i18n/LICENSE
@@ -1,4 +1,5 @@
-Copyright (c)2012, Ivan Perez
+Copyright (c) 2013-2020, Keera Studios Ltd
+Copyright (c) 2010-2012, Ivan Perez
 
 All rights reserved.
 
@@ -13,9 +14,9 @@ modification, are permitted provided that the following conditions are met:
       disclaimer in the documentation and/or other materials provided
       with the distribution.
 
-    * Neither the name of Ivan Perez nor the names of other
-      contributors may be used to endorse or promote products derived
-      from this software without specific prior written permission.
+    * Neither the name of Ivan Perez, nor the name of Keera Studios, nor the
+      names of other contributors may be used to endorse or promote products
+      derived from this software without specific prior written permission.
 
 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

diff --git a/keera-hails-i18n/keera-hails-i18n.cabal b/keera-hails-i18n/keera-hails-i18n.cabal
@@ -1,3 +1,7 @@
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : All Rights Reserved
+-- Maintainer  : support@keera.co.uk
+--
 cabal-version: >= 1.10
 build-type:    Simple
 

diff --git a/keera-hails-i18n/src/Hails/I18N/Gettext.hs b/keera-hails-i18n/src/Hails/I18N/Gettext.hs
@@ -1,18 +1,22 @@
 {-# LANGUAGE CPP #-}
 -- | This module contains the function we need to use to get automatic
 -- translation on all the strings in our programs.
+--
+-- Copyright   : (C) Keera Studios Ltd, 2013
+-- License     : BSD3
+-- Maintainer  : support@keera.co.uk
 module Hails.I18N.Gettext where
 
 import Text.I18N.GetText
 import System.IO.Unsafe
 import Codec.Binary.UTF8.String
- 
+
 -- | Translate a string using gettext.
 --
 --   Note: This implementation decodes UTF-8 strings only in Linux. If it
 --   should also in other OSs, please open an issue on github.
 __ :: String -> String
-__ s 
+__ s
 #ifdef linux_HOST_OS
  | isUTF8Encoded s' = decodeString s'
 #endif